|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Chris 31 am 12.01.2016 um 09:00 Uhr (1)
Hast du beide Code-Teile in einer Sub stehen?Davon bin ich ausgegangen. Dann würde er die Definition von MySketch aus dem oberen Teil übernehmen.Wenn du es in getrennten Subs machst, dann musst du die Variable natürlich übergeben.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Arbeitspunkt und ipt Dateinamen in einer Zeichnung auslesen
Chris 31 am 21.05.2015 um 14:12 Uhr (1)
Dann:Gewünschte Koordinaten auslesen und in benutzerdefinierte iProps schreiben.Dann allgemeine Tabelle in der Zeichnung mit den iProps füttern und einfügen.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Chris 31 am 22.12.2015 um 09:48 Uhr (1)
Oh Sorry. Bitte kommentiere die Zeile einmal aus. Du befindest dich ja schon in der Skizze, da brauchst du sie ja nicht zum editieren aufrufen.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Chris 31 am 11.01.2016 um 09:51 Uhr (1)
Poste doch mal den Code, den du jetzt hast, vielleicht kann man dann dort einen Fehler finden.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Arbeitspunkt und ipt Dateinamen in einer Zeichnung auslesen
Chris 31 am 21.05.2015 um 11:04 Uhr (1)
Das ging ja schnell.Wohin sollen denn die Infos ausgelesen werden?------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Arbeitspunkt und ipt Dateinamen in einer Zeichnung auslesen
Chris 31 am 21.05.2015 um 11:31 Uhr (1)
Also Export nach Excel so wie das aussieht.Dann jetzt die Frage, wie viel Ahnung hast du denn schon von VBA?------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Arbeitspunkt und ipt Dateinamen in einer Zeichnung auslesen
Chris 31 am 21.05.2015 um 14:35 Uhr (1)
Du meinst die Bohrungstabelle?Dort hast du ja keine Auswahl, mit der du die Datei bestimmen könntest.Ich hab es jetzt bei schnellem Probieren auch nicht hinbekommen, ein iProp mit der Bauteilbezeichnung in die Tabelle zu kriegen.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Chris 31 am 21.12.2015 um 07:26 Uhr (1)
Guten morgen,vielleicht habe ich da ja auch irgendwas überlesen, aber ich finde keine Verbindung zwischen deiner Symbolerstellung und dem Text, den du da erstellst.Wenn du den Text sowieso aus ner UserForm nimmst, dann erstell dir doch in deiner idw-Vorlage ein Symbol mit einer Eingabe. Dann platzierst du das Symbol per VBA und füllst die Eingabe aus.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Chris 31 am 21.12.2015 um 11:59 Uhr (1)
Das Symbol platzieren sollte folgendermaßen gehen:Code:Dim Doc As DrawingDocumentSet Doc = ThisApplication.ActiveDocument Dim osheet As Sheet Set osheet = Doc.ActiveSheet Dim oSketch As Sketch Dim oSymbol As SketchedSymbol Set oSymbol = osheet.SketchedSymbols.Item("DEIN SYMBOLNAME")Dim oPlacementPoint As Point2dSet oPlacementPoint = ThisApplication.TransientGeometry.CreatePoint2d("X-Koordinate", "Y-Koordinate")Call osheet.SketchedSymbols.Add(oSymbol,oPlacementpoint)------------------MFGChris
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mit VBA ein Text auf Zeichnung plazieren
Chris 31 am 22.12.2015 um 07:31 Uhr (1)
Du möchtest jedes mal ein neues Symbol erstellen? Alternativ könntest du eine Skizze erstellen, in die du deine Tabelle zeichnest und den Text einfügst.Code: Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Dim osheet As Sheet Set osheet = oDoc.ActiveSheet Set oSketch = osheet.Sketches.Add Dim oTextbox As TextBox Dim sText As String sText = "DIES IST EIN TESTTEXT" Call oSketch.Edit Set oTextbox = oSketch.TextBoxes.AddFitted(ThisApplication.TransientGeometry.Create ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Arbeitspunkt und ipt Dateinamen in einer Zeichnung auslesen
Chris 31 am 21.05.2015 um 15:06 Uhr (1)
Also, so wie ich das sehe wirst du in diese Bohrungstabelle keine iProperties reinbekommen, die keinen Bezug zu der Bohrung haben. Alle iProps, die in der Spaltenauswahl stehen beziehen ihre Werte ausschließlich aus der Bohrung selbst, haben also nichts mit dem Bauteil zu tun, in dem die Bohrung ist.Die Alternative wäre eine Allgemeine Tabelle nach deinen Wünschen formatiert und mit iProps gefüllt, die du vorher über VBA befüllst.------------------MFGChris
|
| In das Form Inventor VBA wechseln |
